$INCLUDE: 'C:\FG\FASTGRAF.FI'

      PROGRAM MAIN

      INTEGER*1 KEY, AUX
      INTEGER STATUS
      INTEGER FG_INITJOY

      CALL FG_INITPM
      STATUS = FG_INITJOY(1)
      STATUS = FG_INITJOY(2)

10    CALL FG_INTJOY(1,KEY,AUX)
      WRITE(6,1000) '1', KEY, AUX
      CALL FG_INTJOY(2,KEY,AUX)
      WRITE(6,1000) '2', KEY, AUX
      WRITE(6,1000)
      CALL FG_WAITFOR(9)
      GO TO 10

      STOP ' '
1000  FORMAT(1X,A1,':',2I3)
      END
